#! /usr/bin/env Rscript
setwd("/Users/matias/Documents/facultad/tesis/wikinews/cubrimiento/")

par(ask=TRUE)
x = scan("results.txt")
y = scan("cantPalabras.txt")
png(file="cubrimiento.png", width=450, height=400)
plot(y,x*100, type="l", main=paste("% de cubrimiento"), xlab=paste("Cant. de palabras"), ylab=paste("Porcentaje"))
dev.off()
